home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch1 / StyleBox.frm (.txt) < prev    next >
Visual Basic Form  |  1999-03-19  |  3KB  |  116 lines
  1. VERSION 5.00
  2. Begin VB.Form frmStyleBox 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "StyleBox"
  5.    ClientHeight    =   2430
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4815
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2430
  11.    ScaleWidth      =   4815
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.Label lblStyle 
  14.       Alignment       =   2  'Center
  15.       BackStyle       =   0  'Transparent
  16.       Caption         =   "vbInsideSolid"
  17.       Height          =   255
  18.       Index           =   6
  19.       Left            =   2580
  20.       TabIndex        =   6
  21.       Top             =   1920
  22.       Width           =   1215
  23.    End
  24.    Begin VB.Label lblStyle 
  25.       Alignment       =   2  'Center
  26.       BackStyle       =   0  'Transparent
  27.       Caption         =   "vbInvisible"
  28.       Height          =   255
  29.       Index           =   5
  30.       Left            =   1020
  31.       TabIndex        =   5
  32.       Top             =   1920
  33.       Width           =   1215
  34.    End
  35.    Begin VB.Label lblStyle 
  36.       Alignment       =   2  'Center
  37.       BackStyle       =   0  'Transparent
  38.       Caption         =   "vbDashDotDot"
  39.       Height          =   255
  40.       Index           =   4
  41.       Left            =   3360
  42.       TabIndex        =   4
  43.       Top             =   1200
  44.       Width           =   1215
  45.    End
  46.    Begin VB.Label lblStyle 
  47.       Alignment       =   2  'Center
  48.       BackStyle       =   0  'Transparent
  49.       Caption         =   "vbDashDot"
  50.       Height          =   255
  51.       Index           =   3
  52.       Left            =   1800
  53.       TabIndex        =   3
  54.       Top             =   1200
  55.       Width           =   1215
  56.    End
  57.    Begin VB.Label lblStyle 
  58.       Alignment       =   2  'Center
  59.       BackStyle       =   0  'Transparent
  60.       Caption         =   "vbDot"
  61.       Height          =   255
  62.       Index           =   2
  63.       Left            =   240
  64.       TabIndex        =   2
  65.       Top             =   1200
  66.       Width           =   1215
  67.    End
  68.    Begin VB.Label lblStyle 
  69.       Alignment       =   2  'Center
  70.       BackStyle       =   0  'Transparent
  71.       Caption         =   "vbDash"
  72.       Height          =   255
  73.       Index           =   1
  74.       Left            =   2580
  75.       TabIndex        =   1
  76.       Top             =   480
  77.       Width           =   1215
  78.    End
  79.    Begin VB.Label lblStyle 
  80.       Alignment       =   2  'Center
  81.       BackStyle       =   0  'Transparent
  82.       Caption         =   "vbSolid"
  83.       Height          =   255
  84.       Index           =   0
  85.       Left            =   1020
  86.       TabIndex        =   0
  87.       Top             =   480
  88.       Width           =   1215
  89.    End
  90. Attribute VB_Name = "frmStyleBox"
  91. Attribute VB_GlobalNameSpace = False
  92. Attribute VB_Creatable = False
  93. Attribute VB_PredeclaredId = True
  94. Attribute VB_Exposed = False
  95. Option Explicit
  96. ' Draw boxes using different DrawStyle values.
  97. Private Sub Form_Load()
  98. Const GAP = 120
  99. Dim i As Single
  100. Dim wid As Single
  101. Dim hgt As Single
  102. Dim X As Single
  103. Dim Y As Single
  104.     ' Make changes permanent.
  105.     AutoRedraw = True
  106.     ' Draw the boxes.
  107.     wid = lblStyle(0).Width + 2 * GAP
  108.     hgt = lblStyle(0).Height + 2 * GAP
  109.     For i = 0 To lblStyle.UBound
  110.         DrawStyle = i
  111.         X = lblStyle(i).Left - GAP
  112.         Y = lblStyle(i).Top - GAP
  113.         Line (X, Y)-Step(wid, hgt), , B
  114.     Next i
  115. End Sub
  116.